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1, ABSTRACT 

T ^!i TLST COMBINES A RANDOM NUMBER GENERATOR WITH A RANDOM 
I ^CATION') EXERCISER TO DEMONSTRATE THAT THE ME.MQRY TEST 
iC^i I* CAPAPvE OF STORING RANDOM DATA, THE RANDOM EXERCISER 
^VlQtS A READ LOOP DETERMINED BY THE LEAST SIGNIFICANT 
C: T AL WIT OF THE Q AT A IN THE LOCATION UNDER TEST TO PEMON* 
STq A T£ COM.PAT I B I U I T v BETWEEN LOCATIONS HOLDING RANDOM DATA", 
EACH EHKOR PR J NT OW T LISTS THE ERROR ADDRESS, E R ROR CONTENTS, 
AN? CORRECT f»ANDO M data, 

2, REQUIREMENTS 
2,1 EJUIPMINT 

p 3P-H WJTH A MINIMUM -OF 4K MEMORY 

2,2,1 PROGRAM STORAGE - The ROUTINE USES MEMORY 
from 2»0 TO 2624, 

3, LOADING PROCEDURE 
3,1 METHOD. 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED, 

1, ABSOLUTE LQAPER MUST BE |N MEMQTY 

2, PLACE BINARY TAPE IN READER 

3, LOAD ADDRESS •7580, {» DETERMINED BY ADDRESS OF LOADER) 

4, P«ESS "START" (PROGRAM WILL LOAD), 

4, STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTING 

STARTING AT SA 200 ALL SWITCHES SHOULD BE DOWN OR HERO, 

4.2 STARTING ADDRESS OR ADDRESSES 

200 ■ START WJTH AUTOMATIC TEST LIMITS 
202 « START WJTH SELECTED TEST LIMITS 

4.3 PROGRAM AND/OR OPERATOR ACTION 

LOAD PHQGRAM INTO MEMORY, 

SET SWITCH REGISTER TO STARTING ADDRESS, 

LOAD ADDRESS 200, 

PRESS START , 

THE PROGRAM WILL RUN THROUGH A TEST OF THE SELECTED 
ADDRESS FIELD AND LOOP, 



5, OPERATING PROCEDURE 

5,1 OPERATIONAL SWITCH SETTINGS 

5.1.1 W I TH ALL SWITCHES DOWN, THE PROGRAM 
WILL PKJNT OUT ERRORS AND CONTINUE 
IN TEST , 

5.1.2 SWITCH SETTINGS ARE 

SW1* * 1 OR UP,,, HALT ON E«ROR 

SW13 c 1 OR UP', INHIBIT PRINTOUT 

SW12 ■ I OR UP', , , HALT ON END OF PROGRAM 

5.1.3 AUTOMATIC TEST LIMITS 

IF THE PROGRAM IS STARTED AT ADDRESS 200 THE PROGRAM WILL 
TEST ALL AVAILABLE MEMORY, CARE SHOULO BE TAKEN TO SELECT THE 
PROPER OPERATIONAL SWITCH SETTING { REFER TO 5,1,2) BEFORE 
STARTING, 

5.1.4 SELECTED TEST LIMITS 

IF THE PROGRAM IS STARTED AT ADDRESS 202 A MESSAGE WILL 
BE PRINTED ON THE TELETYPE INSTRUCTING THE OPERATOR ON 
THE METHOD OF SELECTING OTHER MEMORY TEST AREAS AND THEN 
THE PROGRAM WILL STOP AT THE FJ*ST QF THREE HALTS, 

A, SET THE LOW TEST LIMIT IN SWITCH REGISTER AND 
PRESS CONTINUE, 

B, THEN SET THE HIGH TEST LIMIT IN THE SWITCH REGISTER 
AND PRESS CONTINUE', 

C, THIN SET THE OPERATIONAL SWITCH SETTINGS (REF 5,1,2) 
AND PRESS CONTINUE', 

THE PROGRAM WILL NOW BEGIN TESTING THE SELECTED AREA, 
THE PROGRAM WILL NOT ALLOW LIMJTS TO BE SELECTED THAT 
WOULD CAUSE ITSEL^ TO BE DESTROYED", AN EXCEPTION TO THIS 
WOULD &E THE INSTRUCTIONAL TEXT STORAGE AREA, STARTING 
THE PROGRAM AT 200 OR SELECTING LIMITS WHICH OVERLAP 
THIS AREA WILL CAUSE THE TEXT MESSAGE TO BE DESTROYED, 



5,2 SUBROUTINE ABSTRACTS 

5.2.1 DAYGEN 

SUFROUTINE DAYGEN JS A CALL TO THE RANDOM DATA GENERATOR , 

IT IS THE FUNCTION OF THIS SUBROUTINE TO GENERATE TWO 

R ANQOM ~ 16 BIT NUMBERS ON EACH PASS, THE ALGORITHM FOR THIS TYPE 

OF NUMBER GENERATOR MAY 8E SUMMARIZED AS FOLLOWS! NX129+60474* 

010)01097 (OCTAL) THE CONSTANT JS BROKEN INTO A TRIPLE PRECISION 

WORD A& FQLLOWSl 000006, 047401, 001057, 

INITIALLY N IS PROVIDED BY THE MAIN PROGRAM, WITH THE 

TWO NUMBERS PRODUCED ON EACH GENERATOR PASS SAVED TO PRIME 

THE GENERATOR FQR THE NEXT PASS, THE HIGH ORDER PORTJQN OF THE 

TRIPLE PRECISION ARITHMETIC I& END AROUND CARRIED INTO THE LOW 

ORDER NUMBER i REGISTERS USED DURING THE SUBROUTINE ARE 

SAVED ON ENTERING THE SUBROUTINE AND RESTORED ON EXIT, 

5. 2. 2 ERROR 

SUBROUTINE ERROR IS CALLED WHENEVER THE PROGRAM DETECTS A 
LOCATION WHICH CONTAINS INCORRECT RANDOM DATA, UPON ENTERING 
THE SUBROUTINE THE. INHIBIT PRINT SWITCH (SW13) IS TESTED TO 
DETERMINE IF THE ADDRESS AND CONTENTS OF THE ERROR LOCATION 
WILL B| PRINTED, AN EXAMPLE OF A RANDOM DATA ERROR PRINTOUT 
IS AS rOLLOWSf 

INCORRECT RANDOM DATA AT THE FOLLOWING LOCATIONj 

002400 012304 

012305 

WHERE 2400 IS THE ADDRESS i 12304 ARE THE CONTENTS t AND 12385 
IS THE CORRECT RANDOM DATA, THE SUBROUTINE UPON THE END OF 
PRINTING, OR IN THE EVENT SW1? IS PRESENT, CHECKS THE HALT 
SWITCH (SW15) IF fHE SWITCH IS SET THE PROGRAM IMMEDIATELY 
RETURNS TQ THE MAIN TEST PROGRAM, 



6, r «ro«s 

6.1 E?RO* HKINTOUT 

POINTS ALL ERRORS UNLESS INHIBITED 3V SW13, 

6.2 tRRQR K£CQ-VE«Y 

DEPRESS CONTINUE TO RESTART SECTION OR RELOAD STARTING 
ADDRESS ANO START. 

7, RESTRICTIONS 

7.1 ST ART J Nfi RESTRICTION 

NONE 

7.2 OPERATIONAL RESTRICTION 

NO^JE 

8, MISCELLANEOUS 

8,1 EXECUTION TIME 

THE PROGRAM RJNGS THE TELETYPE BELL AFTER EVERY 
56 PASSES THRU THE PROGRAM WHICH IS APPROXIMATELY 
ONCE PER MINUTE WITH 4K OF MEMORY , 



9, PROGRAM DESCRIPTION 

T WE RANUOM DATA GENERATOR TEST ( RANDAT ) JS DESIGNED 
*3 VERIFY THE ABILITY OF MEMOHY TO STORE RANDOM DATA 

configurations wjtwout malfunction, the test derates 
:n three phases, "the first phase loads the memory test 

with random numbers, the second phase read-exercises 
these numbers with address selection determined by the 
weast significant octal bjt 0? the previous number exercised", 
?*e third phase reinitializes and reruns the random 
number generator, sequentially comparing the contents of the 
test locations with each number generated, the random 
number' is turned on by a call to subroutine daygen, in the 
event of an error the program will uump to the subroutine 
error for the output printing and halt options, 

to indicate that the program us operating the 

TELETYPE BELL WILL RING APPROXIMATELY EVERY 

minute; the program will halt at the end of 

EACH PASS IF SWPfH ig IS PRESENT', A CONTINUE 
FROM THE HALT (OR IF SWITCH 12 IS NOT PRESENT) 
*IU jy«P TO THE NEXT PASS, 



LISTING 



PROGRAM RANOAT 
DiMMIA'.PU 



MAINOEC-H-OZHMI.A 



000240 
000000 



000004 

000200 

000202 
000204 
000206 
000210 
000242 
000214 
000216 



000004 

000234 

000200 
000407 

000443 

000000 

000000 
177564 
177566. 
17,7570 
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.NLJST S|Q 

, T HUE PROGRAM RANDAT MA I NOEC-il-DZMM j-a 

ICOPYRIGHT 1970, 1971,1972 DIGITAL EQUIPMENT CORP,, MAYNARO, M*SS, 01754 
NQP«240 

,CNAS|. ABS 
i * 

J TRAP CATCHER 0-176 

Tj,G 
,8200 

BR START 

BR START! 
LOLMTi 
HUMTI 
TCSRl 177564 
TOBRI 177566 
SWREGt 177570 
SUMMITI 



PROGRAM RAND AT MAJNOKC.ll-OiHMNA MACYU.616 15-MAY-72 16|30 PACE 2 

OlMMfA.Pil 



000220 
(700224 

0.002?* 
000230 

000232 
000234 
000240 
000244 
000246 
000294 
000296 
000262 
000264 
000270 
-000274 

039*1* 

000312 
800320 
000326 
000334 
000340 
000344 
000390 
000392 
000396 
000360 
000366 
000370 
030376 
000400 
000404 
030406 
000414 
000416 
000424 
000426 
000434 
000442 
000490 
000496 
000462 
000466 
000470 
000474 
000476 
000500 
000504 
000506 
000510 



012706 
010603 
005723 
000240 

000775 
162703 
005737 
001407 
023727 
001405 

162703 
000402 

162703 
010367 
012767 

«xm? 

012767 
012767 
012767 
012706 
012702 
004767 
000000 
009777 
001407 
027767 

103403 
017767 
000000 
00977? 
001407 
027767 
103403 
017767 
000000 
012767 
012767 
016767 
016767 
016700 
004767 
014420 
020067 
101005 
014420 
020067 
101001 
000765 
016767 



002262 




START | 


HOV 








MOV 






SEE 1 


TST 








NOP 








BR 


000004 




TU6I 


sye 


000042 






TST 








BEQ 


000042 


000754 




CMP 






8EQ 


002734 






sye 








BR 


000300 




sit 


syB 


177712 

•m f. ' mm 




S2I 


MOV 


177710 

ml. r * w 


000662 




MOV 


.00^244" 


177674 




*MOV 








177710 


000644 


START! 1 


MOV 


002264 


177656 




MOV 


017470 


177652 




MOV 


002262 






MOV 


002266 






MOV 


001370 






JSR 








HALT 


177636 






TST 






BEQ 


177650 


177616 




CMP 




B|,0 


177620 


177606 




MOV 




HJSETl 


HALT 


177610 






Tf ! 






BEQ 


177602 


177570 




CMP 
BLO 


177572 


177562 




MOV 


CTUSETl 


HALT 


123456 


000532 


AUTOS T 1 


MOV 


176943 


000526 




MOV 


000520 


000522 


NXPASSl 


MOV 


00051 4 

XJ V %/ m ~ 


000516 




MOV 


177522 






MOV 


000314 




REWRYTl 


JfR 






MOV 


177512 

J, f ' «» J, ft 






CMP 






BHI 








MOV 


177502 






CMP 






BH ! 








BR 


177470 


000472 


MEMCHNI 


MOV 



•BUFFER, X6 

%6|X3 

<X3)* 

SEE 
#4 f X3 
• M2 
SI 

•#42,*ENDA8R 
S2 

«1500,,X3 
S2 

#300, X3 

X3|HJLMT 

*«70,8ELLCT 

taEFAVL'DLMT 

AUTOST 

#»70 # BCLLCT 

*QEFA| LOLMf 

#17470,HILMT 

•BUFFER, X6 

#MSGliX2 

X7|T0P 

•SWREG 

H I SET 

•SWREG,LOLMT 
HISET 

•SWREGiLOLMT 

•SWREG 
CTLSET 

•SWREGiLOLMT 
CfkSET 

•SWREGiHILMt 

#123416, LQNUM 

#176543, HlNUM 

LONUM|SAVLO 

HlNUM, 5AVH! 

LOLMT,X0 

X7,0AYSEN 

•<4),<0)* 

X0, HlLMT 

MEMC2N 

•<4),(0>* 

X0|HILMT 

MEMCZN 

REWRYT 

LOLMT , exraod 



I TEST POJNT IN EACH BANK 
|TEST 

/PRECAUTIONARY DELAY 
|N0 TRAP, CONTINUE 
/TRAPPED, 



/GET END OF 
/SET HlLMT 
/SET LP 



PGM MARKER 



/PUT LOLMT IN SWREG AND CONTINUE 
/LOOK FOR LOLMT 
/BRANCH If DEFERRED 
ICHK LOLMTHOADPT 
| , LOLMt<LOAOPT, USE LMT DEFINED 
IL0LMTSLOAORT, STORE INPUT 

/LOOK fOR HlLMT 

iSRANCH IP DEFERRED 

ICHK HfLMT>LOLMT 

/BRANCH IF HILMT<LOLMT 

iStORE SWREG ^ Am m 

?W*JT POR| PGM CONTROL SELECTIONS 

IINITULUC LONUM LOCATION 

IDITTO FOR HlNUM 

[SAVE FOR READCK JNITI ALtlAT ION 

/SAVE POR READCK INITI ALIlATiON 

I GET LOLMT FOR R0 

I GENERATE TWO RANDOM NUMBERS 

I WRITE 1ST NUMBER 

ICKN COUNT UP TO H t LMT 

IIP SO GO EXERCIZE TEST FIELD 

/WRITE 2ND NUMBER 

ICKN COU^T UP TO HlLMT 

MP SO GO EXERCIZE TEST FIELD 

ILOOP AND CONTINUE WRITING 

I GET LOLMT 



PROGRA* *ANQAT 
DIMMU,*U 
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J>71 01S1 A 


011 77 A7 


0I00J4 A6 

K/ V v 7 w 


ly V ~ " 


im a e, n u c 1 


MOV 


n H H K ^ A 

*> « <" 5 Z * 


042707 


4 7 77701 

%7 f / 7v 


a Jin aaa 






?! a a K 1 


(71 01 K 7 A 7 

10 10 5 / O 7 


10 V to 7 9 7 






TST 


# 4/ <> 9 


01014 A 7.0! 
*>V 1 7 wW 








BEQ 


71 "71 *7> « il fll 

<00tf 54W 


(714 A 7 A 7 


01 01 01 A A A 
SJ 100440 


010101 A A IS 
10 10 P 7 7 9 






£ n ,7i tw A 
* <0i0?4O 


01 3 7 7 7 7 


01 51 01 A 7 A 


01 0J 0147.4 
(7 IP 7 O 7 


*"6£wl7 i 


CMP 


7) 71 .71 RBI A 


5I0IK7 A 7 


0)0)0147.9 






DEC 


71 71 31 K A 01 

</<7<y 9910 


91 01 4 A 0M 








O *m w 


71 ,71 Jl K A "5 


0! 01 SI 7 7 1 

000 7 7 4 








BR 


71 71 01 K A A 
4/ 47 10904 


a 1 4 7 A 9 


0101 0101 All 


01 01 0149? 
10 fc7 O 7 t * 




BIT 
4 1 


7J mm mm t 
47*7i0?7* 


01014 A 0IO 

00140* 








D fc « 


71 ,71 171 e 7 A 

v « 5 7 4 


01 OIK 9 A 7 

005*0 7 


fll 01 01 A 4 A 

01010414 






! NC 

Jllv 


;7> 01 fll A A fl 


01 A 47A7 

poo 70 7 


0161 0144 01 


01010140)2 

10(7 7 v m 




ADD 




0I9A7A7 


01 01 01*17 A 
»» 10070 


1 77172 
1 7 / w 7 * 


YR("1 1 

A~Ci 1 


v ' * • 




4 014 7 A 01 
1017*0 








BLOS 




0I0J0J40I4 

0004 »4f 








BR 




01 A 9 7 A 7 

00* 70 7 


OJ 010101 fll 9 
\BWvVm 


0I0J0I1A2 

10 IP Us? OS 


3 T BR f T 1 

C I r ill 


ADD 


3? 310! A9A 
* 47 O Q c 


IP 10 10 /Of 








BR 


a a si a 7 01 


014 A 7 010! 
» 40 7 00 


4 771R0J 

1 7 S <99l? 






MOV 


J73I0IA7.4 


014 A7A7 

10407 Q 7 


0lfl!0!H 9 
10 If 10 001 






MOV 


JfJtflD A 4 5 


011 A7A7 
01070 f 


CCIftT'SA 

i,i0i0o<e 


0I0K390 




MOV 


JT'fll fll A • fl 


0I0J47A7 
v 04 7 7 


010j0li 9A 




OP infiN I 
~ 6 * U W 1 


jSR 


90J9IAR4 


0I94 44 OJ 
w *7 < H«7 








CMP 


SFfllStARA 
4tlrZI0Q9Q 


0I0J1 4 0I9 
I0014K>C 








BEQ 


* at v w ■ 10 


0J0J47A7 

IP IP 7 / 


ti V V W 1) 7 






JSP 




0I9M0IA7 
»#I0I0O 7 


4 7734 A 






GMP 


j* 71 a a 7 01 


4 017,014 9 










»»»A7 9 


010147 901 
10 IP 9 7 CK> 








TST 


9(901 A V A 


019441 01 

■0*4440 








CMP 


A 

4X017070 


0)014 4019 
00140* 








BEQ 

Oft * 


«* iff 7»0 


0I0I47A7 
004707 


01 01 a 7. 4 4 






gSR 


*T iff 47 7 107 


0199101 A7 


4 7797A 

177«7 B 






CM B 


»»0)74 01 


10400* 










«*»71ic 


01 01 ■ 7 9 A 
0097<-0 








TST 


tflflC 714 


01 0101 7 K R 
000793 








BR 


» fllfll 7 A A 


01 01 It 91 7 

10 109207 


171 01 01 9 A 9 
010 10*44; 




rMPlR Afi« 

fc'Nyr 4 


I T Nfi 


Umv7i£ 


01 01 4 111 901 

0010Z0 








BNE 


*el«7«4 


01 4 O 7 A 7 


4 7774 01 
177 7110 


I0I0104P* 




MOV 




1»S7 7 7 


4 7 V9B9 

177<5iC 






7STR 

I W 1 O 




4 ffl«7 7K 








BPL 




011 9777 

•0**7 77 


01 01 019017 
01010410 7 


4 77244 




MOV 


77/71917 A A 
*if W 74Q 


011 17019 


01 01 0101 A 9 
101010104* 






MOV 


*» *f 71 


001404 

"W V A 7 f 7 








BEQ 




004712 






ENDADRl 


JSR 


1 31756 


000240 








NOP 




000240 








NOP 


233762 


000240 








NOP 


£10764 


032777 


010000 


177222 


CONTCKI 


B J T 


11B772 


001401 








BEQ 


138774 


000000 








HAUT 


113776 


000167 


177440 






JMP 



•EXRADOiMASK 

«H77770,MA8K 

MASK 

ZJPBIT 

MASKiSVMASK 

•EXRAOO 1 *EXRA 

MASK 

• ** 

XRC20N 

*liSVMASK 

,*6 

SVMASK 

SVMASKiEXRADD 

EXRADQiHIlM? 

NXER02 

REAOCK 

#2f EXPADD 

XRCi 

LOIMT,K0 
SAVLOiLONUM 
SAVHI,HINUM 
X7,0AY0EN 
4) 1*9(0 

X7|ERR0R 
X0aHILMT 
ENDPASS 
(0) + 

•<4>»f)X0 

,*l 

XTiERROR 
X0iHIl.MT 
ENOPASS 

READON 
BEUtCT 

CONtCK 
#«70iBCULCT 
PTCSR 

• •4 

#207,»TOBR 
•«42iX2 

CONTCK 
X7i<2> 



I SET UP LS08 IN MASK 
/AND JN OATA 
ICKN FOR OCTAL B \ ? 
I BRANCH IP 
j SAVE MASK CONTENTS 
DO jEXEPC!SE LOCATION THE NUMBER 
iQt TJMES SPECIFIED BY THE 
j'LS OCTAL B I T OF RANDOM NUMBER 

j SETUP MASK TO CK ?0R ODD NO. 

I INCREMENT ODD NO, TO STAY ON EVEN 
ISOUNDS, ADD TO ADDRESS POINTER 
ICKN If ADDRESS UP TO HILMT 
/CONTINUE EXERCIZE IF <« HILMT 
j'EXERCi COMPLETE, GO CK MEMORY 
j INCREMENT ADDRESS POINTER 
I'LOOP AND TRY AGAIN 
I'POT IN LOLMT JN R0 
I REINITIALIZE LONUM 
fOlTTO FOR HINUM 
I GO GENERATE NUMBERS 
I CK AGAINST MEMORY 
I SKIP NX JF OK 
l to ERROR ROUTINE 
ICKN FOR COUNT UP TO HILMT 
I BRANCH IF >■ 
I JUST INCREMENTING 
ICKN 2N0 WORD AGAINST MEMORY 
J SKIP NX IF OK 
j TO ERROR ROUTINE 
ICKN HJLMT AGAIN 
/BRANCH IF >» 
/INCREMENTING AGAIN 
/LOOP TO CONTINUE READ 
/INCREMENTING PASS ITERATION COUNTER 
/GO CK HALT-CONTINUE SWITCH 
/REINITIALIZE COUNTER 
ICKN TTy AVAILABILITY 
/WAST LOOP 
|R!NG A DING 



#10000(tSWREG 
NXPASS 



ICKN HALT. CONTINUE SWITCH 
/SKIP NX IF NO SWITCH 

/JUMP FOR NEXT PASS 



PROGRAM RANDAT MA INDEC«li*DIMM I «A 
02MMIA',P11 



>•> w i K) n c 


oil oi 0)67 


300170 


U 1 


01 1 01 1 A ? 
IOl<0iO f 


01^011 AA 
10 f w 4, O 


W |0 1 10 1 £ 


011 0)9 A7 
v 4 V C v r 


010011 A 4 
v 1 *f 


«' W 1 10 1 


011 0I1A7 


P100H A? 
V if 4 c 


CI 011 0I99 

*' W 1 10 2 A 


01 1 9 7 (7! 4 


l w i J. 3 w 


01 01 1 01 9 A 
ki £ 1 10 e 


C 4 ** » * ■» 


00019,4 


*' 1 3 £ 


0)1 A7PH 


0)001 9? 


01011 atA 
v v 1 10 >5 Q 


011 970)3 


0100)0017 

10 ftr Ks V iy ' 


0i oi i a 4 9 

«- 10 1 *) £» 


«v IP 3 B s? < 




K 010#*» 


01 01 A "? 01 01 
r) 1°I0 




it tut n, a i. 
K 1 4 


0101 A 4 01 1 




001090 


01 01 A 4 01 9 




001092 


01 OH 1011 




01 a 4 a ■ A 


001373 




an* a ■ a 


01 A A90I0I 

1000 7^0 


01 01 01 1 OI A 


01 01 4 Ml 9 

100100c 


oi a its on 

100 9 9 " 4 




a ai 4 a a A 
100109* 


01 AA90I4 

1000 7104 


0101011 0101 
k? 10 10 410 10 


01 ai 01901 
1001070 


01 0144019 
13107910 4; 




01 014 019 9 
W0107C 


0IA970I01 


10 IB 4 IS 3 r 


SI 014 019 A 

&0107O 


0i am ci ail 




if 101100 


0|fl]IEB0l9 
K>09?I0C 




01 914 4 A 9 


0IA990I1 
0O«7<04 


014 94011 


IS H 4 4 A A 

1 1 » 


0I0IKK0I9 






0IA99019 
I0q<:7i0C 


OI C! 01 01 01 A 
010101000 


001114 


01 A 01 9 Of 01 




U ll 4 4 4 A 

slslllo 


At a r e oi 4 




t*JI fX 4 4 <• /■ 


01 4 010! A 9 
04000/ 


01010101 A 9 
01010044 


>0i3il*4 


01 4 0101 9 A 
0400*4 




WBllZO 


014 AM A 9 

w*Bl©7 


010)01019 A 
010101009 




01 4 014 9 A 

0404*4 




n ci 4 4 v a 


014 A9S0I 

0*0700 


01 01 01 019 A 
0)00030 


oi ei 4 4 j a 
001140 


014 A90I4 

010701 


010101019 A 


m is 4 4 ji ^ 


01 4 A "• 01 9 
04O7I0C 


01 01 01 01 * 9 

00003c 


si n * 4 ■ m 

001190 


016709 


oi oi oiai 1 01 
000030 


001154 


000207 




00119o 


000000 




ft ftf 4 4 A fA 


n a n a fx n 
000000 




01 01 4 4 AO 

001162 


01 ai 01a 01 oi 
1900000 




0011*4 


at a fx a n tx 
000000 




01 OI 4 4 A A 

<o w 1 1 


f% fJl (X t% 01 (M 




fsi ni 4 4 w nt 

0Zill"0 


f% t% fll 1% (9t tM 

000015 




pi n 4 4 <* o 
B It 1 X 7 * 


01 01 01 01 0) 01 
IP 10 » 10 10 10 




001174 


000000 




001176 


000000 




001200 


000000 




001202 


000000 




001204 


000000 




001206 


000000 
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jRandqm d*Ta generator sub* 



DAYGENI 


MOV 


%0t SV2ER0 




MOV 


XliSVONE 




MOV 


X2f 5VTW0 




MOV 


K3iSVTR!P 




MOV 


#ENDGEN|X4 




MQV 


l,ON|jM|X0 




MOV 


HINUM.X1 




MOV 


#7|X3 




CLR 


%2 


SHIFT! 


ASL 


X0 


ROL 


XI 




RQL 
~ y a 


X2 




DEC 


XJ 




8NE 


SHJTT 




ADO 


LONUM, X0 




ADC 


XI 




ADD 


MlNUMiXl 




ADC 

m y v 


X2 




AQO 


#1057, X0 




ApO 


XI 




ADC 


X2 




ADD 


#47401* XI 

w-rr 9V4)|«||> 




ADC 

m %r v 


X2 




ADD 


#$iX2 




ADD 


X2*X0 




ADC 


XI 




MQV 


X0 1 LONUM 




MOV 


X§4 (41* 




MQV 






MOV 


Xli(«H 




MOV 






MQV 


SVONEiXl 




MOV 


SVTWOf X2 




MOV 


SVTRIP|X3 




RTS 


X7 


|» IT ^ l# 1/m 1* 1 










BEl L CT 1 







LONUM 1 







M I MUM 1 







SAVLO I 







SAVHI 1 







SVHEROI 







SVONEI 







SVTWOI 







SVtRIPl 







svrouRr 
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!NE 

I5AVN (C> R0 
iSAVN <C> Rl 
I'SAVN tc> R2 
iSAVN IC) R3 

I GET END OF SUBRTN MARKER 
/SET UP R0 WITH 5 DIGITS LOW 
j SET UP Rl WITH 5 DIGITS HIGH 
I SET UP SHIFT COUNT 
ICL'EAR R2 

I'SMITT R0 LEFT AND 
I ROt ATE CARRY INTO LSB OF Rl AN5 
I ROTATE CARRY OUT OF Rl INTO R2 

I DECREMENT R3 

iCONTINue SHIFT LOOP 

lADON IN NUMBER TO MAKE X £29 

iPROPOGATE CARRY 

I'AfiON IN NUMBER TO MAKE X £29 

iPROPOGATE CARRY 

I A5DN low constant 

I PROROGATE CARRIES 
iPROPOGATE AGAIN 
JA50N HIGH CONITANt 
iPROPOQATI CARRY 
lABDN HIGHEST CONSTANT 
fftCPRIME R0 WITH HIGH 6I6IT 
I'PROPOGATC carry 
IPQT R0 BASK IN LONUM 
iHOLO LONUM FOR PROGRAM 
iPOT R| back IN HINUM 
iHOLD NtNLjH FOR PPOCMM 
iRETURN OATA It R0|R1|R2 
j'ANO RS 



I RETURN TQ PRQQRAM 



PROGRAM RANQAT 


MAI NutC 


• H»DenM I 


• A 


M A ** V 4 4 


A4 ft 
v*w 


OeMM I A , PI; 












C 10 1 6 1 10 


01 01 0! 31 Ol 21 
r 10 C %) tu V 






PXR ADD t 
u a n fs w w 1 





icicle 


0! 01 01 01 01 01 
k5 10 P 10 IP 






M ASK 1 


PJ 


CM * n 4 A 

001217 


fll fll lS 01 fll 
IC- tu It? |0 10 10 






O V ~ A 3 r\ 1 


If 


001216 


01 01 fll £1 fll 01 

l£ 10 w IC 






Qpfsrw I 
3"Bl«r> 1 




I0012<c0 


01 1 01 4 A 7 

10 1 It' 7 7 


4 77749 

1 7 7 7 0£ 






MOV 
n v 7 


»01 2Z*> 


01 4 01 01 A 9 


4 7774A 

\7 7 7*0 






MOV 


a « < oil) 

Kyi 2 30 


01 4 01 4 4 7 

v 1 1 7 


4 77744 






MOV 


001234 


hi 1 1 ^ 7 f 
032777 


t% n n /4 tx 
1020000 






J I 


001Z42 


oi a 4 at. a 
00100*) 








P '1 L. 


til H 4 1 A A 


01 4 9 7 fll 9 


emu's a tutu 
00&100 






MOV 




1007707 


0! 01 01 4 4 4 






w 9 " 


001254 


0M fll fll 01 O 








MOV 


001256 


01 01 4 V A 9 

»0* 7 7 


fll 01 01 4 4 9 

000*02 






^ w ■> 


n r% * n a o 

013120c 


4 aim 

1057 7 7 


4 7*799 
1 ' 722 






TSTH 


■001260 


4 

101937? 










a n 4 o 7 01 

0012'0 


0*2777 


01 01 01 9 4 01 
10 10 6 * If? 


4 7474 4 

If O/i; 




MOV 


a 4 ova 
001276 


10107207 


4 7 7 7 4 4 

1 7 7 /J* 






t Kic 

i ll V 


001302 


P#»0 7 *■ 7 


4 7774 01 
1 i ' 1 10 


01 01 01 01 0! 6 
10 ft? K> 10 w 




CMP 


n ft 4 14 a 


t% a 4 14 4 

00130* 








BMP' 


n n 4 -i4 n 

001312 


0i 4 4 a oi o 

011002 








Mft V 
H W ¥ 


am 4 1 1 a 


007007 


4 77A7A 

177070 








001320 


01 01 4 7 4 7 

004707 


01 01 01 4 9 01 
000120 








mat lAi 
001324 


4 fll 11777 

1057 *f 


4 74. 4.40! 

170000 






TSTR 


001^30 


100379 








tapf 

O ~ )■ 


tuts* wo 
00* J 32 


0(4 9777 

0**77/ 


0! 010194 ■ 

00021? 






n w ¥ 


flat t A a 
001340 


4 fl 11777 

103777 


176644 








0! 01 4 ^ 4 4 


4 0J0I17R 
100379 








D ~ b 


001345 


014 9799 
0**77 7 


a a OX 5 4 9 
S3 IP 61 * 


4 7AATA 




MOV 
n W ¥ 


a a 4 it e ^ 
001394 


014 7 7 0*9 

0*770* 


177626 








(7/14 HAS 

001300 


<% a 4747 
004707 


a (?. s ot 4 0J 
000069 






ISR 


a (1 1 4 * A A 

0C1364 


4 ait777 


4 7 4 4 90! 

170020 






TSTR 
If IB 


«/T4 TIC 

0*1370 


4 fltflf Y7B 
I0037? 






Brit 


a 4 f 4A 


0(4 9777 

0*2777 


0(0)0194 C 


4 7 A A 4 7 
17001* 




n w ¥ 


001400 


4 0IR777 

105777 


4 744 *4 
17 0004 






TSTR 


10014107 


4 01 01 1 7 K 
1003 7 5 






RPL 


fll 01 4 iHi 


ot 4 9777 
01*777 


ff 0i fll 5(i 9 


4 7AR7fe 
170P71 




MQV 


O fi< 4 4 4 4 

0*1414 


0119777 

103* f ' 7 


4 01 0* 01 0! 01 


4 7AK72 


c w (■ u 1/ 1 


bit 


ff OJ 4 a m, 9 


Pi CM 4.014 








w fc 


001424 


000000 








HALT 


001426 


016704 


177534 






MQV 


001432 


"16700 


177S40 






MQV 


001436 


016721 


177936 






MOV 


001442 


000207 








RXS 
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X4iSVF0UR 
X0iSVZg;RO 

XlfSVONE 

*20000i»SWREG 

SWCHK 

#MSQ2,%2 

%7 t T0P 

X0iX2 

X7|PRTAB 

• TCSR 
SPACE 

#240,PTOBR 

SPOCK 

SP0CK,#6 

SPACE 

•X0|%2 

SPOCK 

X7|PRTAB 

f»TCSR 

#2*5#I»TDBR 
•TCSR 
«4 

#212#»T03R 

•SVFOURiXI 

X7|P«TAB 

•TCSR 

, »4 

#2i9i»TDBR 

• TCSR 

#212>#T0BR 
#100000i»3WRCG 

SVr0UR,X4 
SVZERO,X0 
SV0NE,X1 
X7 



ISAVN R0,Rli AND R4 



j'SETUP INHIBIT PRINT MASK 
|SW UP, SKJP PRINTING 

I'SEND "INCORRECT RANDOM DATA" MESSAGE 

I GET (C) R0 

I GO PRINT ADDRESS 

ICK TTV AVAIL 

/SEND SPACE 

ICK 6 SPACES 

I GET ERROR DATA 

I GO TO PRINT ROUTINE 
ICK TTV 

/SEND tn 
ICK TTV 

iSfcND IF 

j SET CORRECT DATA FOR PRINTER 
I GO PRINT jC) OF R4 
ICKN TTY 

I SEND OR 
I CRN TTY 

1 SEND IF 

ISETUP HALT MASK 

I SKIP HALT IF NOT HALT ON ERROR 

I RETURNING DATA TO R0iftl< i R4 



I RETURN TO PROGRAM 



PROGRAM RANDAT 
D2HMIA",Pli 



MAINDSC-13.-0ZMMI-A 



S3 1 4 4 4 


?05067 


?00252 


0(51450 


005067 


000244 


201454 


^12704 


001726 


001460 


142777 


000177 


001466 


?12767 


003005 


001474 


P12767 


000007 


001502 


P12767 


000001 


001510 


105777 


176474 


001514 


100375 




001516 


005702 




001520 






001522 


012777 


000260 


001530 


000403 




001532 


312777 


000261 


001540 


016703 


000146 


001544 


010267 


000144 


001550 


005167 


000140 


001594 


046723 


000134 


001560 


001410 




001562 


066767 


000130 


001570 


005267 


000126 


001574 


026703 


000120 


001600 


001370 




001602 


062767 


000260 


001610 


016724 


000106 


001614 


0667*7 


000072 


001622 


005067 


000072 


001626 


005067 


000070 


001632 


005367 


000066 


001636 


001410 




001640 


01270} 


000003 


001644 


066767 


000042 


001652 


00530$ 




001654 


001373 




001656 


000730 




001660 


012767 


000005 


001666 


105777 


176316 


001672 


100375 




001674 


014477 


176312 


001700 


005367 


000020 


001704 


001401 




001706 


000767 




001710 


000207 




001712 


000000 




001714 


000000 




001716 


000000 




001720 


000000 




001722 


000000 




001724 


000000 




001726 


000000 




001730 


000000 




001732 


000000 




001734 


000000 




001736 


000000 





176522 
000230 
000210 
000206 



176462 
176452 



000130 

000112 
000074 

000040 
000036 



MACY11.616 


PRTABI 


CUR 








MOV 




BICB 




MOV 




MOV 




MOV 


WAIT1I 


TSTB 




BPL 




TST 




BM J 




MOV 




BR 


MINUSI 


MOV 


startxi 


MOV 




MQV 




COM 




B I C 




BCD 


MKNUMI 


APO 




INC 




CMP 




BNC 


WRTOCI 


ADD 




MOV 




ADD 




CUR 




CUR 




DEC 




r* 




MOV 


MOADDl 


ADD 




DEC 




BN| 




BR 


XL 1ST I 


MOV 


WAJT2I 


T§TB 




BPU 




MOV 




DSC 




BED 




BR 


MDFHMI 


RTS 


SEVEN I 





TOODUEl 





DECML 1 





WGTCTI 





BlNCTl 





ASCNT 1 





UlSTl 
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B1NCT 
WGTCT 
#UIST,X4 
*177,PTCSR 
#5, ASCNT 
#7, SEVEN 
#1#DECMU 

• TCSR 
HAITI 
X2 

MJNUS 

«260i»TDBR 

STARTX 

«261i»T0BR 

SEVEN, X3 
X2|T00DUE 
TOOOUE 
T0Q0UE,X3 
WRTOC 

DECMUiWGTCT 

BINCT 

WGTCT,X3 

MKNUM 

#240, BINCT 

BINCT, (4)* 

SEVEN,DECMU 

WGTCT 

BINCT 

ASCNT 

XUIST 
#3|X3 

SEVEN, SEVEN 
X3 

MOADD 
STARTX 
#5, ASCNT 

• TCSR 
WAIT2 

-<«)i*TDBR 

ASCNT 
HDFHM 
WAJT2 
X7 



I GET LIST ADDRESS 
ICLR'. I NT FLAG 



I NEC SIGN PRINT 1 
I'POS SIGN PRINT 



|PUT MASK IN R3 
iGCT READY TO OOOOUE NUMBER IN TOODUE 
/COMPENSATES FOR COMPUEMENT DURING BIC 
I AND IN OCTAU CHARACTER 
jlERO, WRITE IN LIST 
I'COUNT UP TO 
I AND RECORD 
|S*ME BINARY WEIGHT 
I KEEP COUNTN 
lAOD ASCII PREFIX 
I WRITE ASCII CHAR IN LIST 
/EXPAND BINARY WEIGHT 



1 5 CHAR IN LIST 
iSET X3 FOR ADD LOOP 
IMIKING SEVENTY BE SEVEN 



f NX SEVEN SET GET NX OCTAL 
I SEND 5 CHAR TO TTY 



/FINISH PRINTING GET NXT NUM 
I HEAD FOR HOME 



PROGRAM RANqAT 
D2MMJA',P11 

001740 
001746 
001752 
001754 
001762 
001766 
001770 
001776 
002002 
002006 
002010 
002014 
002016 
002022 
002024 
002030 
002032 
002036 
002040 
002046 
002052 
002054 
002062 
002066 
002070 
002072 
002074 
002076 

002100 
002106 
002114 
002122 
002130 
002136 
002144 
002152 
002160 

002162 

002262 
002264 
002266 
002274 
002^02 
002310 
002316 
002324 
002332 
002340 
002345 
002352 
002360 



KAINDec-U'DlMMI-A 
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142777 
105777 
100375 
112777 
105777 
100375 
112777 
112267 
121267 
001411 
121227 

001406 
105777 
100375 
112277 
000764 
105777 
100375 
112777 
105777 
100375 
112777 
121267 
001402 
105202 
000743 
000207 
000 
002100 
044454 
042522 
047101 
040504 
020124 
047506 
047111- 
040503 
026072 

000000 
002262 
000000 
000000 

051457 
046505 
042101 

020125 
051524 
051440 
020110 
052123 
123 
053517 
046511 



200177 
176236 

?002l5 
176222 

000212 
003074 
020070 

000100 

176166 

176162 

176152 

000215 
176136 

000212 
000010 



041516 
052103 
04,7504 
040524 
044124 
046114 
020107 
044524 



052105 
051117 
051104 
044514 
053040 
044527 
042522 
051105 
052105 
051105 
052111 



176242 

176230 
176214 



176144 
17613B 



05U17 
051040 
020115 
040440 
020105. 
053517 
047514 
047H7 



046440 
020131 
051505 
044515 
040514 
041524 
044507 
100 
046040 
046040 
044440 



TQP I BJCB 
TSTB 
BPL 
MOVB 
TSTB 
BPL 
MOVB 
MOVB 

■TOPI I CMPB 
BEQ 
CMPB 
BEQ 
TSTB 

BPL 

MOVB 

9K 

ATRATEl TSTB 
BPL, 
MOVB 
TSTB 

BPL 

MOVB 

CMPB 



EOMKl 
MSG2I 



INCB 
BR 
Rf S 
, BYTE 
,§VEN 
1 ASCI! 



#177i»TCSR 
»TCSR 

#215il»TD8R 

PTCSR 

,.4 

#212i*TDBR 
<2)*,E0MK 
*X2iEQMK 
ATRATE 

ATRATE 
*TCSR 

t m 4 

(2)*r»TDBR 

TOP# 

• TCSR. 

V 

#2l5ifTDBR 

• TCSIT' 
,-4 ' 

#242#PTDBR 
•X2,E0MK 

,*6 
X2 

TOPI 
%7 



j*CLR INT FLAG 



jSEND CARRIAGE RETURN 



j SEND LINE FEED 
jMOVE IN EOM MARKER 
j'COMPARE FOR EOM 



l*CK TTV 

i wait for done 
imove Character 
/branch back 



j* send carriage return 



j SEND LINE FEED 

ICKN END MSSSA8E MARK 

I SKP NX2 IF EOMK 

I INCRMTN R2 

I NO EOM, SO LOOP 



J, INCORRECT RANDOM OATA AT THE FOLLOWING LOCAtjON|#l 



( EVEN 
QEFI 

, f QEF*100 
BUFFER i 

QEFAI . 

MS61I .ASCIH/SET MEMORY ADDRESS LIMITS VIA SWITCH REGISTER*) 



,ASCI 1 1 SET LOWER LIMIT IN 3W-REG AND PRESS CONTINUE*! 



J*«9G*A* *A*OAT 

332346 
332374 

? 32402 

552410 
£?2416 
3,32422 
332430 
302436 
3.J2444 
332452 
302460 
332466 
332474 
332477 
3^2504 
302512 
3?2520 
312526 
022534 
992942 
*|2550 
902512 
002560 
002566 
002574 
002602 
002610 
002616 



M41N0EC-11-DZMHI-A 
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020116 
043505 
P50040 
041440 
052516 
242523 
042520 
044515 
051440 
020107 
051120 
047503 
042525 
125 
047111 
046511 
044527 
020105 
047524 
026464 
040060 
044514 
041040 
052040 
040522 
044527 
020105 
046125 
000001 



053523 
040440 
042522 
047H7 
040105 
020124 

020122 
020124 
026527 
047101 
051505 
052H6 
100 
042116 
042105 
052111 
046114 
0*2523 
031040 
033461 

044515 
046105 
044510 
043516 
046H4 
042504 
042524 



051055 
042H6 
051523 
044524 

050125 
044514 
047ll| 
042522 
020104 
020123 
047111 

043105 
046040 

02012} 
041040 
020124 
033062 
033464 

051524 
053517 
020123 
020105 
041040 
040506 
027504 



.ASCIJISE! UPPER LIMIT IN SW-REG AND PRESS CONTINUE*! 



.ASCniUNOEFlNEO LIMITS WILL BE SET TO 2264-17470*1 



.ASCUILJMITS BELOW THIS RANGE WILL BE DEPAULTED/I 



iINO 



PHOGfU* ^QAT MAJNDECil-DZMMI-A MACY11 , 616 15-MAY-72 16130 

D|MMJA,*U SYMBOL TABLE 
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A5CNT 301724 

BJNCT 001722 

OAYGES 201S02 

ENDPAS 20071* 

HOFHH 201710 

LIST 001726 

MgMC2\ 000510 

MS61 002266 

NXPASS 00044? 

RgADCK 000630 

SAVLO 001172 

SPACE 001262 

START! 000312 

SVONC 001200 

SW6HK 001415 

TL« 00023! 

WAJT1 001510 

XLJST 001660 

SI " 000265 



ATRATE 002032 

BUFFER 002262 

3EC=ml 0017|6 

EQ'MK 002076 

HJ LIT 000206 

LQL*1T 000204 

MINUS 001532 

MSG2 002100 

PRTAB 001444 

REAQON 000650 

SEE 000226 

SPOCK 0012^6 

SyMMjT 00021* 

SVTRIP 001204 

SWREG 00023,4 

TOOOLE 0017J4 

WAJT2 001666 

XRC20N 000546 

52 000270 



Ay TOST 000426 

CONTCK 000764 

ENDADR 000754 

ERROR 001220 

HJNUM 001170 

LONUM 001166 

MKNUM 001562 

NOP * 000240 

QE> 002162 

REWRYT 000462 

SEVEN 001712 

S| ART 000220 

SVroUR 001206 

SV'TWO 001202 

TCSR 000210 

TOP 001740 

WGTCT 001720 

XHC1 000606 

« 002624 



BELLCT 


001164 


CTLSET 


000424 


EN6GEN 


001156 


rXRAOO 


00121® 


H I SET 


000376 


MASK 


001212 


MOAOO 


001644 


NXERC2 


000516 


GE?A 


002264 


SAVHt 


001174 


SHIFT 


001044 


STARTX 


001540 


SVMASK 


001214 


SV2ER0 


001176 


TOBR 


000212 


TOPI 


002002 


WRTOC 


001602 


ZJPBfT 


000620 



ERRORS OETECTIOt 



PROGRAM R A N D A T MA ! NDEC-il-DSMM I -A HACYli , 616 15-MAY-72 16 1 30 PAGE 

DINMIA'.PU 

»D2MMrA,D2MMIA*DHMMlA/S0L 

RUN-TlMEr 2 4 8 SECONDS 
CORE USEDI 3K 



